  (    ) 
 VGA 640480, 16 .
   
Procedure PutPixelPas(X,Y:OptInt16;Pixel:OptWord);stdCall;
{  ()  }
 
procedure APM;{Application.ProcessMessages;}
       ,
        ,
   .
...
   Q (Shift+"q")
      .

.
   ,   
  - ColorGPas,  uFORM.* (uFORM.pas, uFORM.asm)

 .
    ,    PDK,
 ,    . 

 ̳      stdCall.
          
   32 .
{Cardinal	0..4294967295	unsigned 32-bit}
 
{Longint	-2147483648..2147483647	signed 32-bit}
     ,  ,     .
  PutPixelPas(X,Y:OptInt16;Pixel:OptWord);
 , X,Y    {-2147483648..2147483647	signed 32-bit},
Pixel, -   {0..4294967295	unsigned 32-bit}.   
 . ,     ,     
 32 .

  PutPixelPas     . 
        ,   
         .
    .      
    ,   ,    SIN  COS,
      ,     .
,    . :-)

    PDK  ""   uPDK.*
  .       PutPixelPas 
 -  .

-: PutPixelPas(x,y+TS,color1)
:
mov eax,[Y]
add eax,[TS]
PutPixelPas  [X],eax,[Color1]

  ,     .
,   ,    ,   
-PDK,   , ,  Push/Pop, .







 